50 REMSAVE"@0:ENHANCED DEMO2",8
60 REM***********
70 REM TO RUN THIS DEMO PROGRAM, RESET COMPUTER, TYPE   LOAD"ENH*",8
80 REM AND THEN PRESS ENTER. THEN TYPE RUN AND PRESS ENTER.
90 REM***********
100 ONLGOTO340,590,720:REM BECAUSE EACH LOAD CAUSES RESTART
110 L=1
120 POKE53281,0:REM BLACK BACKGRD
130 PRINT"[147][158]"CHR$(14):REM CLR,YELLOW,LOWER CASE
135 IFPEEK(777)=167GOTO140:REM IGONE=DEF VAL
137 PRINT"!!! SHUT OFF COMPUTER(TO RESET)BEFORE RUNNING THIS":STOP
140 PRINT""
190 PRINT"     [201]NTRODUCING  ENHANCED [195][193][196]-[205]
200 [153]
210 [153]
220 [153]"    (null)HIS PROGRAM DEMONSTRATES THE
230 PRINT"         THE DRAMATIC COLOR FILL
240 [153]"    CAPABILITIES OF "[199](34)"ENHANCED LENATNSTR$-(null)"[199](34)
250 [153]
260 [153]"(REMOVE ANY FAST-LOAD CARTRIDGES BEFORE
270 PRINT" RUNNING THIS PROGRAM, AND IF YOU ARE
280 [153]"      USING A LEN128 COMPUTER,
290 PRINT"       SET IT TO [195]64 MODE)
300 [153]
310 [153]"(null)LEASE WAIT, PROGRAM LOADING
320 LOAD"CO2R",8,1
330 FORN=0TO2000:NEXT
340 L=L+1 :REM DO THIS JUST AFTER A LOAD
350 PRINT"[147][212]HE DEMO PROGRAM NOW BEING LOADED IS AN
360 [153]"ENHANCED VERSION OF LENATNSTR$-(null) VERSION 2.0
370 PRINT"THAT IS SUPPLIED ON THIS DISC.
380 [153]"                ***
390 PRINT"[212]HE ENHANCED [195][193][196]-[205] VERSION 3.0 INCLUDES
400 [153]"LEN(null)(null)(null)(null)CLOSEASCRIGHT$(null)(null)(null) AND LEFT$RIGHT$STR$STR$VAL(null)CLOSE(null)(null)(null)ASCATNLENVAL (null)VAL(null)(null)(null)ATN(null),
410 PRINT"AND IS COMPATIBLE WITH ALL FILES MADE
420 [153]"WITH LENATNSTR$-(null) VERSION 2.0.
430 PRINT"                ***
440 [153]"ATN "[199](18)"LENATNSTR$-(null) VERSION 3.0"[199](146) " DISK AND MANUAL IS
450 PRINT"AVAILABLE FROM:
460 [153]
470 [153]"(null)(null)VALLENRIGHT$ATN(null)-(null)-CHR$(null)ATN(null)LEFT$RIGHT$LEN(null)CLOSERIGHT$(null)LEN."
480 [153]"1252 (null)HARF (null)TREET,
490 PRINT"[214]ICTORIA, [194].[195]., [195][193][206][193][196][193]"
500 PRINT"[214]8[215] 1[212]8                [208]H.(604) 386-1445
510 [153]"(null)ANUAL & DISK: $24.95 (null).(null).
520 PRINT"           OR  $29.95 [195]ANADIAN
530 [153]"(null)RICE INCLUDES POSTAGE.
540 PRINT"[211]ATISFACTION GUARANTEED OR MONEY BACK.
550 [153]"LENHEQUE, (null)ISA OR (null)ASTERCARD.
560 PRINT
570 PRINT"        "CHR$(18)"[204][207][193][196][201][206][199]-[215][193][201][212] 1 MIN."CHR$(146)
580 LOAD"CO2Z",8,1
590 L=L+1 :REM DO THIS JUST AFTER A LOAD
600 REM THE FOLLOWING LOADS CO2P
610 A$="CO2P"
620 FORN=1 TO LEN(A$)
630 POKE 820+(N-1),ASC(MID$(A$,N,1)):NEXT
640 A=780:REM .A REG
650 X=781
660 Y=782
670 P=783
680 POKE A,1:POKEX,8:POKEY,0:SYS65466:REM SETLFS
690 POKE A,LEN(A$):POKEX,820AND255:POKEY,820/256:SYS65469:REM SETNAM
700 POKE A,0:POKEX,0:POKEY,224:SYS65493:REM LOAD AT $E000
710 LOAD"OL2Z*",8,1
720 L=L+1
730 POKE 55,6435AND255:POKE56,6435/255:REM SET MEMSIZ=$1923
740 REM NOW SYS$9700
750 SYS38656
760 XX
770 PRINT"HERE IS THE CAD-M LOGO IN FULL, SOLID COLORS.
780 CAD:LD"CAD-M LOGO"
790 CO:SF:M[170]:P3
800 XX
810 [153]"WITH ENHANCED CAD-M VERSION 3.0, YOU
820 PRINT"CAN INSTANTLY VIEW YOUR WORK AS IT
830 [153]"WOULD APPEAR IN SOLID REAL LIFE.";
840 [129]T[178]0[164]5000:[130] T:[143] TIME DELAY
850 CAD:RL:RD:RD:RD:RD:RD:RD:RD:RD:RD:RD:RD:RD:RD:RD:XX
860 [153][199](14)"YOU CAN OUTLINE THE SURFACES FOR
870 PRINT"CLARITY.
880 CAD:O[170]:RD:RD:RD:RD:XX
890 [153]"DO YOU LIKE BIG JUICY SPIDERS?
900 CAD:LD"SPIDER":CO:M+:O-:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:RR:XX
910 PRINT"END OF DEMO";